﻿Public Class baiduget
    Inherits Form

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim url As String
        url = "http://www.baidu.com/s?wd=$newkey&rn=20"
        Dim encode As String
        encode = System.Web.HttpUtility.UrlEncode(TextBox1.Text)
        url = url.Replace("$newkey", encode)

        TextBox2.Text = url
    End Sub
End Class